home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Auge 4000
/
Auge 4000 #21 (1988-05-25)(Amiga User Gruppe Einzugsgebiet 4000).zip
/
Auge 4000 #21 (1988-05-25)(Amiga User Gruppe Einzugsgebiet 4000).adf
/
Keno
/
keno30000
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1988-01-20
|
27KB
|
998 lines
CLEAR, 30000
SCREEN 2,640,200,3,2
WINDOW 2,,,0,2
WINDOW OUTPUT 2
PALETTE 0,1,1,1
PALETTE 1,1,1,1
PALETTE 2,0,0,0
x=150:y=40
COLOR 2
AREA (x,y)
AREA STEP (0,30)
AREA STEP (10,0)
AREA STEP (0,-20)
AREA STEP (20,20)
AREA STEP (20,0)
AREA STEP (0,-30)
AREA STEP (-10,0)
AREA STEP (0,20)
AREA STEP (-20,-20)
AREAFILL
AREA (x+65,y)
AREA STEP (0,30)
AREA STEP (50,0)
AREA STEP (0,-30)
AREAFILL
COLOR 1
AREA (x+80,y+5)
AREA STEP (0,20)
AREA STEP (20,0)
AREA STEP (0,-20)
AREAFILL
COLOR 2
AREA (x+130,y)
AREA STEP (0,5)
AREA STEP (22,0)
AREA STEP (0,25)
AREA STEP (16,0)
AREA STEP (0,-25)
AREA STEP (22,0)
AREA STEP (0,-5)
AREAFILL
AREA (x+205,y)
AREA STEP (0,30)
AREA STEP (15,0)
AREA STEP (0,-30)
AREAFILL
AREA (x+240,y)
AREA STEP (0,30)
AREA STEP (45,0)
AREA STEP (0,-5)
AREA STEP (-35,0)
AREA STEP (0,-20)
AREA STEP (35,0)
AREA STEP (0,-5)
AREAFILL
AREA (x+300,y)
AREA STEP (0,30)
AREA STEP (45,0)
AREA STEP (0,-5)
AREA STEP (-35,0)
AREA STEP (0,-7)
AREA STEP (15,0)
AREA STEP (0,-6)
AREA STEP (-15,0)
AREA STEP (0,-7)
AREA STEP (35,0)
AREA STEP (0,-5)
AREAFILL
LINE (120,25)-(525,35),2,bf
LINE (120,75)-(525,85),2,bf
LINE (120,25)-(140,85),2,bf
LINE (505,25)-(525,85),2,bf
LOCATE 15,18
PRINT "THIS PROGRAM IS FOR ENTERTAINMENT PURPOSES ONLY"
PRINT :PRINT TAB(19);"AND IS NOT TO BE USED ILLEGALLY FOR GAMBLING!!"
LOCATE 22,28
PRINT "Press any key to continue."
checkhere:
zz$=INKEY$
IF zz$=""THEN GOTO checkhere
CLS
CLEAR
PALETTE 0,0.3,0.3,0.3
PALETTE 1,1,1,1
PALETTE 3,0,0,0
PALETTE 2,0.7,0,0
PALETTE 4,0.7,0,0.5
PALETTE 5,0,0.5,0
PALETTE 6,0.4,0.1,0
RANDOMIZE TIMER
DIM N(20)
DIM blot(15)
DIM which$(15)
FOR z=1 TO 15
READ which$(z)
NEXT
DATA first, second, third, fourth, fifth, sixth, seventh
DATA eighth, ninth, tenth, eleventh, twelveth, thirteenth
DATA fourteenth, fifteenth
LINE (0,0)-(640,200),2,bf
LINE (30,10)-(600,180),6,bf
COLOR 3
AREA (40,181)
AREA (601,181)
AREA (601,15)
AREA (610,15)
AREA (610,184)
AREA (40,184)
AREAFILL
COLOR 1
GOTO titlescreen
play:
GOSUB title
playagain:
GOSUB drawboard
IF zz$="S" THEN GOTO playsame
GOSUB select
playsame:
GOSUB drawnums
GOSUB checkwin
GOSUB showwin
turns=turns+1
GOSUB fin
showwin:
GOSUB ct
GOSUB prize
LOCATE 18,35
PRINT spots;"- SPOT KENO
LOCATE 20,14
IF spots>10 THEN LOCATE 20,3
PRINT "Your numbers are:";
FOR j=1 TO spots:PRINT blot(j);:NEXT j
LOCATE 22,20
COLOR 1,5
many$="numbers."
IF matches=1 THEN many$="number."
PRINT "You matched";matches;many$;" You win ";prize$
COLOR 1,0
RETURN
prize:
IF spots=1 AND matches=1 THEN prize$="$3":pz=pz+3:RETURN
IF spots=2 AND matches=2 THEN prize$="$12":pz=pz+12:RETURN
IF spots=3 AND matches=2 THEN prize$="$1":pz=pz+1:RETURN
IF spots=3 AND matches=3 THEN prize$="$42":pz=pz+42:RETURN
IF spots=4 AND matches=2 THEN prize$="$1":pz=pz+1:RETURN
IF spots=4 AND matches=3 THEN prize$="$4":pz=pz+4:RETURN
IF spots=4 AND matches=4 THEN prize$="$112":pz=pz+112:RETURN
IF spots=5 AND matches=3 THEN prize$="$1":pz=pz+1:RETURN
IF spots=5 AND matches=4 THEN prize$="$14":pz=pz+14:RETURN
IF spots=5 AND matches=5 THEN prize$="$720":pz=pz+720:RETURN
IF spots=6 AND matches=3 THEN prize$="$1":pz=pz+1:RETURN
IF spots=6 AND matches=4 THEN prize$="$4":pz=pz+4:RETURN
IF spots=6 AND matches=5 THEN prize$="$66":pz=pz+66:RETURN
IF spots=6 AND matches=6 THEN prize$="$2,000":pz=pz+2000:RETURN
IF spots=7 AND matches=4 THEN prize$="$1":pz=pz+1:RETURN
IF spots=7 AND matches=5 THEN prize$="$20":pz=pz+20:RETURN
IF spots=7 AND matches=6 THEN prize$="$380":pz=pz+380:RETURN
IF spots=7 AND matches=7 THEN prize$="$8,000":pz=pz+8000:RETURN
IF spots=8 AND matches=5 THEN prize$="$9":pz=pz+9:RETURN
IF spots=8 AND matches=6 THEN prize$="$80":pz=pz+80:RETURN
IF spots=8 AND matches=7 THEN prize$="$1,480":pz=pz+1480:RETURN
IF spots=8 AND matches=8 THEN prize$="$25,000":pz=pz+25000:RETURN
IF spots=9 AND matches=5 THEN prize$="$4":pz=pz+4:RETURN
IF spots=9 AND matches=6 THEN prize$="$44":pz=pz+44:RETURN
IF spots=9 AND matches=7 THEN prize$="$300":pz=pz+300:RETURN
IF spots=9 AND matches=8 THEN prize$="$4,000":pz=pz+4000:RETURN
IF spots=9 AND matches=9 THEN prize$="$25,000":pz=pz+25000:RETURN
IF spots=10 AND matches=5 THEN prize$="$2":pz=pz+2:RETURN
IF spots=10 AND matches=6 THEN prize$="$20":pz=pz+20:RETURN
IF spots=10 AND matches=7 THEN prize$="$136":pz=pz+136:RETURN
IF spots=10 AND matches=8 THEN prize$="$960":pz=pz+960:RETURN
IF spots=10 AND matches=9 THEN prize$="$4,000":pz=pz+4000:RETURN
IF spots=10 AND matches=10 THEN prize$="$25,000":pz=pz+25000:RETURN
IF spots=11 AND matches=5 THEN prize$="$1":pz=pz+1:RETURN
IF spots=11 AND matches=6 THEN prize$="$8":pz=pz+8:RETURN
IF spots=11 AND matches=7 THEN prize$="$72":pz=pz+72:RETURN
IF spots=11 AND matches=8 THEN prize$="$360":pz=pz+360:RETURN
IF spots=11 AND matches=9 THEN prize$="$1,800":pz=pz+1800:RETURN
IF spots=11 AND matches=10 THEN prize$="$12,000":pz=pz+12000:RETURN
IF spots=11 AND matches=11 THEN prize$="$28,000":pz=pz+28000:RETURN
IF spots=12 AND matches=6 THEN prize$="$5":pz=pz+5:RETURN
IF spots=12 AND matches=7 THEN prize$="$32":pz=pz+32:RETURN
IF spots=12 AND matches=8 THEN prize$="$240":pz=pz+240:RETURN
IF spots=12 AND matches=9 THEN prize$="$600":pz=pz+600:RETURN
IF spots=12 AND matches=10 THEN prize$="$1,480":pz=pz+1480:RETURN
IF spots=12 AND matches=11 THEN prize$="$12,000":pz=pz+12000:RETURN
IF spots=12 AND matches=12 THEN prize$="$36,000":pz=pz+36000:RETURN
IF spots=13 AND matches=6 THEN prize$="$1":pz=pz+1:RETURN
IF spots=13 AND matches=7 THEN prize$="$16":pz=pz+16:RETURN
IF spots=13 AND matches=8 THEN prize$="$80":pz=pz+80:RETURN
IF spots=13 AND matches=9 THEN prize$="$720":pz=pz+720:RETURN
IF spots=13 AND matches=10 THEN prize$="$4,000":pz=pz+4000:RETURN
IF spots=13 AND matches=11 THEN prize$="$8,000":pz=pz+8000:RETURN
IF spots=13 AND matches=12 THEN prize$="$25,000":pz=pz+25000:RETURN
IF spots=13 AND matches=13 THEN prize$="$36,000":pz=pz+13000:RETURN
IF spots=14 AND matches=6 THEN prize$="$1":pz=pz+1:RETURN
IF spots=14 AND matches=7 THEN prize$="$10":pz=pz+10:RETURN
IF spots=14 AND matches=8 THEN prize$="$40":pz=pz+40:RETURN
IF spots=14 AND matches=9 THEN prize$="$320":pz=pz+320:RETURN
IF spots=14 AND matches=10 THEN prize$="$1,000":pz=pz+1000:RETURN
IF spots=14 AND matches=11 THEN prize$="$3,200":pz=pz+3200:RETURN
IF spots=14 AND matches=12 THEN prize$="$16,000":pz=pz+16000:RETURN
IF spots=14 AND matches=13 THEN prize$="$25,000":pz=pz+25000:RETURN
IF spots=14 AND matches=14 THEN prize$="$40,000":pz=pz+40000:RETURN
IF spots=15 AND matches=7 THEN prize$="$8":pz=pz+8:RETURN
IF spots=15 AND matches=8 THEN prize$="$28":pz=pz+28:RETURN
IF spots=15 AND matches=9 THEN prize$="$132":pz=pz+132:RETURN
IF spots=15 AND matches=10 THEN prize$="$300":pz=pz+300:RETURN
IF spots=15 AND matches=11 THEN prize$="$2,600":pz=pz+2600:RETURN
IF spots=15 AND matches=12 THEN prize$="$8,000":pz=pz+8000:RETURN
IF spots=15 AND matches=13 THEN prize$="$25,000":pz=pz+25000:RETURN
IF spots=15 AND matches=14 THEN prize$="$32,000":pz=pz+32000:RETURN
IF spots=15 AND matches=15 THEN prize$="$40,000":pz=pz+40000:RETUR
prize$="nothing!"
RETURN
checkwin:
matches=0
FOR I=1 TO spots
FOR j=1 TO 20
IF N(j)=blot(I) THEN matches=matches+1:GOSUB colorwin
NEXT j
NEXT I
RETURN
select:
spots=0
COLOR 1,0
LOCATE 22,14
PRINT "Enter how many spots you want to play (1-15): ";
getspot1:
spot1$=INKEY$
IF spot1$="" THEN GOTO getspot1
IF (ASC(spot1$))<49 OR (ASC(spot1$))>57 THEN spots=0:GOTO checkspots
PRINT spot1$;
getspot2:
spot2$=INKEY$
IF spot2$="" THEN GOTO getspot2
IF (ASC(spot2$))=13 THEN spots=(ASC(spot1$))-48:GOTO keepon
IF (ASC(spot1$))<>49 AND (ASC(spot2$))<>13 THEN spots=0:GOTO checkspots
IF (ASC(spot2$))<48 OR (ASC(spot2$))>53 THEN spots=0:GOTO checkspots
PRINT spot2$;
getspot3:
spot3$=INKEY$
IF spot3$="" THEN GOTO getspot3
IF (ASC(spot3$))<>13 THEN spots=0:GOTO checkspots
spots=(ASC(spot2$))-38
keepon:
FOR z=1 TO spots
GOSUB ct
LOCATE 18,35
PRINT spots;"- SPOT KENO"
LOCATE 20,14
PRINT "Enter your ";which$(z);" number: ";
getblot1:
blot1$=INKEY$
IF blot1$="" THEN GOTO getblot1
IF (ASC(blot1$))<49 OR (ASC(blot1$))>57 THEN blot(z)=0:GOTO blotrange
PRINT blot1$;
getblot2:
blot2$=INKEY$
IF blot2$="" THEN GOTO getblot2
IF (ASC(blot2$))=13 THEN blot(z)=(ASC(blot1$))-48:GOTO ready
IF (ASC(blot1$))>56 THEN GOTO blotrange
IF (ASC(blot2$))<48 OR (ASC(blot2$))>57 THEN GOTO blotrange
IF (ASC(blot1$))=56 AND (ASC(blot2$))<>48 THEN GOTO blotrange
PRINT blot2$;
getblot3:
blot3$=INKEY$
IF blot3$="" THEN GOTO getblot3
IF (ASC(blot3$))<>13 THEN blots=0:GOTO blotrange
blot(z)=((ASC(blot1$))-48)*10+(ASC(blot2$))-48
ready:
GOSUB checkblot:IF repeat=1 THEN GOTO getblot1
NEXT z
RETURN
checkblot:
repeat=0
IF z=1 THEN RETURN
FOR I=z TO 2 STEP -1
IF blot(z)=blot(I-1) THEN repeat=1:GOSUB blotagain
NEXT I
RETURN
blotrange:
GOSUB ct
LOCATE 20,14
PRINT "That entry is out of playing range. Range is from 1 to 80."
LOCATE 22,14
PRINT "Enter your ";which$(z);" number again: ";
GOTO getblot1
blotagain:
GOSUB ct
LOCATE 20,14
PRINT "You already chose that number before!"
LOCATE 22,14
PRINT "Enter your ";which$(z);" number again: ";
RETURN
checkspots:
IF spots<16 AND spots>0 THEN GOTO keepon
GOSUB ct
LOCATE 18,14
PRINT "Number of spots played MUST be in the range of 1 to 15."
LOCATE 20,35
PRINT "TRY AGAIN !!"
GOTO select
drawboard:
GOSUB ct
LINE (123,4)-(522,131),3,bf
FOR b=4 TO 132 STEP 16
LINE (123,b)-(522,b),1
NEXT b
FOR a=123 TO 525 STEP 40
LINE (a,4)-(a,131),1
NEXT a
COLOR 1,3
z=0
FOR x=0 TO 79
c=l
l=2+(INT(x/10))*2
IF c><l THEN z=0
LOCATE l,17+z*5
PRINT x+1
z=z+1
NEXT x
RETURN
drawnums:
GOSUB ct
COLOR 1,0
LOCATE 18,35
PRINT spots;"- SPOT KENO"
LOCATE 20,22
COLOR 1,2
PRINT "Amy is selecting 20 numbers at random."
FOR t=1 TO 20
N(t)=INT(RND*80)+1
GOSUB checkn
GOSUB lightboard
NEXT t
COLOR 1,0
RETURN
fin:
LOCATE 24,2:PRINT "'N'-Pick New Numbers 'S'-Play Same Numbers 'M'-Payoff Information 'Q'-Quit";
checkkey:
zz$=UCASE$(INKEY$)
IF zz$="" THEN GOTO checkkey
IF zz$="N" THEN GOTO playagain
IF zz$="S" THEN GOTO playagain
IF zz$="M" THEN GOTO payscreen
IF zz$="Q" THEN GOTO quit
GOTO checkkey
quit:
CLS
WINDOW CLOSE 2
SCREEN CLOSE 2
LOCATE 4,30
IF turns=1 THEN amt$="dollar."
IF turns>1 THEN amt$="dollars."
PRINT "You spent";turns;amt$
IF pz=0 THEN winnings$="nothing...Sorry, better luck next time!"
IF pz=0 THEN LOCATE 6,17:PRINT "You won ";winnings$
IF pz>0 THEN LOCATE 6,30:PRINT "You won";pz;"dollars."
LOCATE 11,27
PRINT "Thank You for playing KENO"
LOCATE 15,28
PRINT "A Program in AmigaBASIC"
LOCATE 17,39:PRINT "by"
LOCATE 19,33:PRINT "Kip H. Hammond"
CLEAR
END
checkn:
FOR w=t TO 2 STEP -1
IF N(t)=N(w-1) THEN N(t)=INT(RND*80)+1:GOTO checkn
NEXT w
RETURN
lightboard:
GOSUB findrow
GOSUB findcol
PAINT (x,y),2,1
RETURN
findcol:
r=N(t)-r
IF r=1 THEN x=124:RETURN
IF r=2 THEN x=164:RETURN
IF r=3 THEN x=204:RETURN
IF r=4 THEN x=244:RETURN
IF r=5 THEN x=284:RETURN
IF r=6 THEN x=324:RETURN
IF r=7 THEN x=364:RETURN
IF r=8 THEN x=404:RETURN
IF r=9 THEN x=444:RETURN
IF r=10 THEN x=484:RETURN
findcol2:
r=blot(I)-r
IF r=1 THEN x=124:RETURN
IF r=2 THEN x=164:RETURN
IF r=3 THEN x=204:RETURN
IF r=4 THEN x=244:RETURN
IF r=5 THEN x=284:RETURN
IF r=6 THEN x=324:RETURN
IF r=7 THEN x=364:RETURN
IF r=8 THEN x=404:RETURN
IF r=9 THEN x=444:RETURN
IF r=10 THEN x=484:RETURN
findrow:
IF N(t)>70 THEN y=117:r=70:RETURN
IF N(t)>60 THEN y=101:r=60:RETURN
IF N(t)>50 THEN y=85:r=50:RETURN
IF N(t)>40 THEN y=69:r=40:RETURN
IF N(t)>30 THEN y=53:r=30:RETURN
IF N(t)>20 THEN y=37:r=20:RETURN
IF N(t)>10 THEN y=21:r=10:RETURN
y=5:r=0:RETURN
colorwin:
GOSUB findrow2
GOSUB findcol2
PAINT (x,y),5,1
RETURN
findrow2:
IF blot(I)>70 THEN y=117:r=70:RETURN
IF blot(I)>60 THEN y=101:r=60:RETURN
IF blot(I)>50 THEN y=85:r=50:RETURN
IF blot(I)>40 THEN y=69:r=40:RETURN
IF blot(I)>30 THEN y=53:r=30:RETURN
IF blot(I)>20 THEN y=37:r=20:RETURN
IF blot(I)>10 THEN y=21:r=10:RETURN
y=5:r=0:RETURN
title:
CLS
x=10: y=5
GOSUB K
y=40
GOSUB E
y=75
GOSUB N
y=110
GOSUB O
RETURN
titlescreen:
x=165:y=30:GOSUB K
x=247:GOSUB E
x=315:GOSUB N
x=400:GOSUB O
COLOR 1,6
LOCATE 10,39:PRINT "by"
LOCATE 12,33:PRINT "KIP H. HAMMOND"
LOCATE 15,8
PRINT "This program is donated to the public domain by the author for all"
PRINT TAB(8);"to enjoy. It may be freely distributed via electronic BBS, user"
PRINT TAB(8);"group disk trading, or other FREE distribution. If you enjoy this"
PRINT TAB(8);"program, contributions to the author will be graciously accepted."
PRINT TAB(8);"Mail donations to 11280 Washington Place, Culver City, Ca. 90230."
PRINT TAB(8);" Have fun...and I hope you win big!!"
LOCATE 22,8
PRINT "Press 'I' for Instructions, 'M' for Money Payoffs, or 'P' to Play."
COLOR 1,0
ck2:
zzz$=UCASE$(INKEY$)
IF zzz$="I" THEN GOTO instructions
IF zzz$="P" THEN GOTO play
IF zzz$="M" THEN GOTO payscreen
GOTO ck2
instructions:
CLS
LOCATE 2,31:PRINT "KENO INSTRUCTIONS"
LOCATE 4,1
PRINT "This game is played EXACTLY like KENO in the casinos of Las Vegas."
PRINT :PRINT "You pay $1 to play. The playing board consists of 80 numbers, 1 TO 80!"
PRINT "You are allowed to select from 1 TO 15 numbers to play."
PRINT :PRINT "After you decide how many numbers you want to play, you then select that"
PRINT "many different numbers from the board of 80."
PRINT :PRINT "The house, in this case Amy, will then select 20 numbers at random from the"
PRINT "board of 80. These numbers will be highlighted in red."
PRINT :PRINT "The object of the game is to have the numbers that you selected MATCH as"
PRINT "many of the numbers selected at random as possible. Your matching numbers will"
PRINT "be highlighted in green."
PRINT :PRINT "The premise of this game is very simple, but the odds that you will match"
PRINT "very many numbers are staggeringly against you! That is why the payoffs are"
PRINT "very high. For example, if you match 10 of 10 numbers, you win $25,000 on a"
PRINT "$1 bet."
LOCATE 23,12:PRINT "Press 'M' for Money Payoff Information, or 'P' to Play.";
ck3:
yy$=UCASE$(INKEY$)
IF yy$="" THEN GOTO ck3
IF yy$="Q" THEN GOTO quit
IF yy$="P" THEN GOTO play
IF yy$="M" THEN GOTO payscreen
GOTO ck3
K:
LINE (x,y)-STEP(30,0)
LINE STEP(0,0)-STEP(-10,5)
LINE STEP(0,0)-STEP(0,8)
LINE STEP(0,0)-STEP(22,-9)
LINE STEP(0,0)-STEP(-6,-4)
LINE STEP(0,0)-STEP(30,0)
LINE STEP(0,0)-STEP(-36,15)
LINE STEP(0,0)-STEP(36,15)
LINE STEP(0,0)-STEP(-30,0)
LINE STEP(0,0)-STEP(6,-4)
LINE STEP(0,0)-STEP(-22,-9)
LINE STEP(0,0)-STEP(0,8)
LINE STEP(0,0)-STEP(10,5)
LINE STEP(0,0)-STEP(-30,0)
LINE STEP(0,0)-STEP(10,-5)
LINE STEP(0,0)-STEP(0,-20)
LINE STEP(0,0)-STEP(-10,-5)
PAINT STEP (10,2),4,1
RETURN
E:
LINE (x,y)-STEP(50,0)
LINE STEP(0,0)-STEP(0,10)
LINE STEP(0,0)-STEP(-10,-5)
LINE STEP(0,0)-STEP(-20,0)
LINE STEP(0,0)-STEP(0,8)
LINE STEP(0,0)-STEP(5,0)
LINE STEP(0,0)-STEP(6,-3)
LINE STEP(0,0)-STEP(0,10)
LINE STEP(0,0)-STEP(-6,-3)
LINE STEP(0,0)-STEP(-5,0)
LINE STEP(0,0)-STEP(0,8)
LINE STEP(0,0)-STEP(20,0)
LINE STEP(0,0)-STEP(10,-5)
LINE STEP(0,0)-STEP(0,10)
LINE STEP(0,0)-STEP(-50,0)
LINE STEP(0,0)-STEP(10,-5)
LINE STEP(0,0)-STEP(0,-20)
LINE STEP(0,0)-STEP(-10,-5)
PAINT STEP (10,2),4,1
RETURN
N:
LINE (x,y)-STEP(30,0)
LINE STEP(0,0)-STEP(20,25)
LINE STEP(0,0)-STEP(0,-20)
LINE STEP(0,0)-STEP(-10,-5)
LINE STEP(0,0)-STEP(30,0)
LINE STEP(0,0)-STEP(-10,5)
LINE STEP(0,0)-STEP(0,20)
LINE STEP(0,0)-STEP(10,5)
LINE STEP(0,0)-STEP(-30,0)
LINE STEP(0,0)-STEP(-20,-25)
LINE STEP(0,0)-STEP(0,20)
LINE STEP(0,0)-STEP(10,5)
LINE STEP(0,0)-STEP(-30,0)
LINE STEP(0,0)-STEP(10,-5)
LINE STEP(0,0)-STEP(0,-20)
LINE STEP(0,0)-STEP(-10,-5)
PAINT STEP (10,2),4,1
RETURN
O:
LINE (x,y)-STEP(60,0)
LINE STEP(0,0)-STEP(-10,5)
LINE STEP(0,0)-STEP(0,20)
LINE STEP(0,0)-STEP(10,5)
LINE STEP(0,0)-STEP(-60,0)
LINE STEP(0,0)-STEP(10,-5)
LINE STEP(0,0)-STEP(0,-20)
LINE STEP(0,0)-STEP(-10,-5)
LINE STEP(20,5)-STEP(20,0)
LINE STEP(0,0)-STEP(0,20)
LINE STEP(0,0)-STEP(-20,0)
LINE STEP(0,0)-STEP(0,-20)
PAINT STEP(-2,0),4,1
RETURN
ct:
LINE (80,135)-(630,200),0,bf
LINE (1,145)-(80,200),0,bf
RETURN
payscreen:
CLS
LOCATE 2,28:PRINT "KENO PAYOFF INFORMATION"
LOCATE 4,5
PRINT "Payoffs are the same as at the FOUR-QUEENS HOTEL in Las Vegas, Nevada."
LOCATE 6,3
PRINT "Press the letter of the game about which you would like payoff information."
LOCATE 10,10
PRINT "A. for 1-SPOT, 2-SPOT, 3-SPOT, 4-SPOT, 5-SPOT, and 6-SPOT"
LOCATE 12,10
PRINT "B. for 7-SPOT, 8-SPOT, 9-SPOT, and 10-SPOT"
LOCATE 14,10
PRINT "C. for 11-SPOT, 12-SPOT, and 13-SPOT"
LOCATE 16,10
PRINT "D. for 14-SPOT and 15-SPOT"
LOCATE 20,16
PRINT "Press 'A', 'B', 'C', or 'D' for Screen Listing."
LOCATE 22,9
PRINT "Press 'P' for a hardcopy printout of Complete Payoff Schedule."
look:
zz$=UCASE$(INKEY$)
IF zz$="A" THEN GOTO pay1
IF zz$="B" THEN GOTO pay2
IF zz$="C" THEN GOTO pay3
IF zz$="D" THEN GOTO pay4
IF zz$="P" THEN GOTO hardprint
GOTO look
pay4:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,115),3,bf
LINE (40,20)-(270,115),2,b
LINE (365,20)-(595,115),3,bf
LINE (365,20)-(595,115),2,b
COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "FOURTEEN-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 6 Win $1"
LOCATE 7,8:PRINT " 7 $10"
LOCATE 8,8:PRINT " 8 $40"
LOCATE 9,8:PRINT " 9 $320"
LOCATE 10,8:PRINT" 10 $1,000"
LOCATE 11,8:PRINT" 11 $3,200"
LOCATE 12,8:PRINT" 12 $16,000"
LOCATE 13,8:PRINT" 13 $25,000"
LOCATE 14,8:PRINT" 14 $40,000"
LOCATE 4,49:PRINT "FIFTEEN-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 7 Win $8"
LOCATE 7,49:PRINT " 8 $28"
LOCATE 8,49:PRINT " 9 $132"
LOCATE 9,49:PRINT " 10 $300"
LOCATE 10,49:PRINT" 11 $2,600"
LOCATE 11,49:PRINT" 12 $8,000"
LOCATE 12,49:PRINT" 13 $25,000"
LOCATE 13,49:PRINT" 14 $32,000"
LOCATE 14,49:PRINT" 15 $40,000"
COLOR 1,0
LOCATE 24,7
IF turns=0 THEN PRINT " 'P'-to Play 'M'-More Information";:GOTO lookpay4
PRINT "'N'-Pick New Numbers 'S'-Play Same Numbers 'M'-More Information";
lookpay4:
zz$=UCASE$(INKEY$)
IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play
IF zz$="M" THEN GOTO pay1
GOTO lookpay4
pay3:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,97),3,bf
LINE (40,20)-(270,97),2,b
LINE (40,100)-(270,177),3,bf
LINE (40,100)-(270,177),2,b
LINE (365,20)-(595,107),3,bf
LINE (365,20)-(595,107),2,b
COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "ELEVEN-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 5 Win $1"
LOCATE 7,8:PRINT " 6 $8"
LOCATE 8,8:PRINT " 7 $72"
LOCATE 9,8:PRINT " 8 $360"
LOCATE 10,8:PRINT" 9 $1,800"
LOCATE 11,8:PRINT" 10 $12,000"
LOCATE 12,8:PRINT" 11 $28,000"
LOCATE 14,8:PRINT"TWELVE-SPOT"
LOCATE 15,8:PRINT"------------------------"
LOCATE 16,8:PRINT"Catch 6 Win $5"
LOCATE 17,8:PRINT" 7 $32"
LOCATE 18,8:PRINT" 8 $240"
LOCATE 19,8:PRINT" 9 $600"
LOCATE 20,8:PRINT" 10 $1,480"
LOCATE 21,8:PRINT" 11 $12,000"
LOCATE 22,8:PRINT" 12 $36,000"
LOCATE 4,49:PRINT "THIRTEEN-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 6 Win $1"
LOCATE 7,49:PRINT " 7 $16"
LOCATE 8,49:PRINT " 8 $80"
LOCATE 9,49:PRINT " 9 $720"
LOCATE 10,49:PRINT" 10 $4,000"
LOCATE 11,49:PRINT" 11 $8,000"
LOCATE 12,49:PRINT" 12 $25,000"
LOCATE 13,49:PRINT" 13 $36,000"
COLOR 1,0
LOCATE 24,7
IF turns=0 THEN PRINT " 'P'-to Play 'M'-More Information";:GOTO lookpay3
PRINT "'N'-Pick New Numbers 'S'-Play Same Numbers 'M'-More Information";
lookpay3:
zz$=UCASE$(INKEY$)
IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play
IF zz$="M" THEN GOTO pay4
GOTO lookpay3
pay2:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,73),3,bf
LINE (40,20)-(270,73),2,b
LINE (40,76)-(270,130),3,bf
LINE (40,76)-(270,130),2,b
LINE (365,20)-(595,81),3,bf
LINE (365,20)-(595,81),2,b
LINE (365,84)-(595,154),3,bf
LINE (365,84)-(595,154),2,b
COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "SEVEN-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 4 Win $1"
LOCATE 7,8:PRINT " 5 $20"
LOCATE 8,8:PRINT " 6 $380"
LOCATE 9,8:PRINT " 7 $8,000"
LOCATE 11,8:PRINT"EIGHT-SPOT"
LOCATE 12,8:PRINT"------------------------"
LOCATE 13,8:PRINT"Catch 5 Win $9"
LOCATE 14,8:PRINT" 6 $80"
LOCATE 15,8:PRINT" 7 $1,480"
LOCATE 16,8:PRINT" 8 $25,000"
LOCATE 4,49:PRINT "NINE-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 5 Win $4"
LOCATE 7,49:PRINT " 6 $44"
LOCATE 8,49:PRINT " 7 $300"
LOCATE 9,49:PRINT " 8 $4,000"
LOCATE 10,49:PRINT" 9 $25,000"
LOCATE 12,49:PRINT"TEN-SPOT"
LOCATE 13,49:PRINT"------------------------"
LOCATE 14,49:PRINT"Catch 5 Win $2"
LOCATE 15,49:PRINT" 6 $20"
LOCATE 16,49:PRINT" 7 $136"
LOCATE 17,49:PRINT" 8 $960"
LOCATE 18,49:PRINT" 9 $4,000"
LOCATE 19,49:PRINT" 10 $25,000"
COLOR 1,0
LOCATE 24,7
IF turns=0 THEN PRINT " 'P'-to Play 'M'-More Information";:GOTO lookpay2
PRINT "'N'-Pick New Numbers 'S'-Play Same Numbers 'M'-More Information";
lookpay2:
zz$=UCASE$(INKEY$)
IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play
IF zz$="M" THEN GOTO pay3
GOTO lookpay2
pay1:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,50),3,bf
LINE (40,20)-(270,50),2,b
LINE (40,53)-(270,82),3,bf
LINE (40,53)-(270,82),2,b
LINE (40,85)-(270,122),3,bf
LINE (40,85)-(270,122),2,b
LINE (40,125)-(270,170),3,bf
LINE (40,125)-(270,170),2,b
LINE (365,20)-(595,65),3,bf
LINE (365,20)-(595,65),2,b
LINE (365,68)-(595,123),3,bf
LINE (365,68)-(595,123),2,b
COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "ONE-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 1 Win $3"
LOCATE 8,8:PRINT "TWO-SPOT"
LOCATE 9,8:PRINT "------------------------"
LOCATE 10,8:PRINT "Catch 2 Win $12"
LOCATE 12,8:PRINT "THREE-SPOT"
LOCATE 13,8:PRINT "------------------------"
LOCATE 14,8:PRINT "Catch 2 Win $1"
LOCATE 15,8:PRINT " 3 $42"
LOCATE 17,8:PRINT "FOUR-SPOT"
LOCATE 18,8:PRINT "------------------------"
LOCATE 19,8:PRINT "Catch 2 Win $1"
LOCATE 20,8:PRINT " 3 $4"
LOCATE 21,8:PRINT " 4 $112"
LOCATE 4,49:PRINT "FIVE-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 3 Win $1"
LOCATE 7,49:PRINT " 4 $14"
LOCATE 8,49:PRINT " 5 $720"
LOCATE 10,49:PRINT"SIX-SPOT"
LOCATE 11,49:PRINT"------------------------"
LOCATE 12,49:PRINT"Catch 3 Win $1"
LOCATE 13,49:PRINT" 4 $4"
LOCATE 14,49:PRINT" 5 $66"
LOCATE 15,49:PRINT" 6 $2,000"
COLOR 1,0
LOCATE 24,7
IF turns=0 THEN PRINT " 'P'-to Play 'M'-More Information";:GOTO lookpay1
PRINT "'N'-Pick New Numbers 'S'-Play Same Numbers 'M'-More Information";
lookpay1:
zz$=UCASE$(INKEY$)
IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play
IF zz$="M" THEN GOTO pay2
GOTO lookpay1
hardprint:
CLS
LINE (100,28)-(500,42),2,bf
LINE (100,28)-(500,42),3,b
COLOR 1,2
LOCATE 5,20
PRINT "KENO PAYOFF SCHEDULE HARDCOPY PRINTOUT"
COLOR 1,0
LOCATE 9,20
PRINT "Make sure your printer is turned on and"
PRINT :PRINT TAB(20);"loaded with paper and ready"
PRINT :PRINT TAB(20);"to print, then press 'P' to"
PRINT :PRINT TAB(20);"print the KENO Payoff Schedule."
PRINT:PRINT TAB(12);"(You MUST have the Workbench Disk in a drive to printout.)"
PRINT :PRINT
LINE (195,147)-(228,162),2,bf
LINE (332,147)-(365,162),2,bf
LINE (195,147)-(228,162),3,b
LINE (332,147)-(365,162),3,b
PRINT TAB(18);"Press:"
COLOR 1,2
LOCATE 20,26:PRINT "'P'"
LOCATE 20,43:PRINT "'A'"
COLOR 1,0
LOCATE 20,30:PRINT "to Print"
LOCATE 20,47:PRINT "to Abort Printout."
look2:
zz$=UCASE$(INKEY$)
IF zz$="P" THEN GOTO printout
IF zz$="A" THEN GOTO payscreen
GOTO look2
printout:
CLS
LINE (150,52)-(460,67),2,bf
LINE (150,52)-(460,67),3,b
COLOR 1,2
LOCATE 8,23:PRINT "NOW PRINTING KENO PAYOFF SCHEDULE"
COLOR 1,0
LPRINT "KENO Payoff Schedule for a $1 Ticket"
LPRINT:LPRINT
LPRINT "One-Spot: Catch 1 Pays $3"
LPRINT:LPRINT
LPRINT "Two-Spot: Catch 2 Pays $12"
LPRINT :LPRINT
LPRINT "Three-Spot: Catch 2 Pays $1"
LPRINT " 3 $42"
LPRINT :LPRINT
LPRINT "Four-Spot: Catch 2 Pays $1"
LPRINT " 3 $4"
LPRINT " 4 $112"
LPRINT:LPRINT
LPRINT "Five-Spot: Catch 3 Pays $1"
LPRINT " 4 $14"
LPRINT " 5 $720"
LPRINT :LPRINT
LPRINT "Six-Spot: Catch 3 Pays $1"
LPRINT " 4 $4"
LPRINT " 5 $66"
LPRINT " 6 $2,000"
LPRINT:LPRINT
LPRINT "Seven-Spot: Catch 4 Pays $1"
LPRINT " 5 $20"
LPRINT " 6 $380"
LPRINT " 7 $8,000"
LPRINT:LPRINT
LPRINT "Eight-Spot: Catch 5 Pays $9"
LPRINT " 6 $80"
LPRINT " 7 $1,480"
LPRINT " 8 $25,000"
LPRINT:LPRINT
LPRINT "Nine-Spot: Catch 5 Pays $4"
LPRINT " 6 $44"
LPRINT " 7 $300"
LPRINT " 8 $4,000"
LPRINT " 9 $25,000"
LPRINT:LPRINT
LPRINT "Ten-Spot: Catch 5 Pays $2"
LPRINT " 6 $20"
LPRINT " 7 $136"
LPRINT " 8 $960"
LPRINT " 9 $4,000"
LPRINT " 10 $25,000"
LPRINT:LPRINT
LPRINT "Eleven-Spot: Catch 5 Pays $1"
LPRINT " 6 $8"
LPRINT " 7 $72"
LPRINT " 8 $360"
LPRINT " 9 $1,800"
LPRINT " 10 $12,000"
LPRINT " 11 $28,000"
LPRINT:LPRINT
LPRINT "Twelve-Spot: Catch 6 Pays $5"
LPRINT " 7 $32"
LPRINT " 8 $240"
LPRINT " 9 $600"
LPRINT " 10 $1,480"
LPRINT " 11 $12,000"
LPRINT " 12 $36,000"
LPRINT:LPRINT
LPRINT "Thirteen-Spot: Catch 6 Pays $1"
LPRINT " 7 $16"
LPRINT " 8 $80"
LPRINT " 9 $720"
LPRINT " 10 $4,000"
LPRINT " 11 $8,000"
LPRINT " 12 $25,000"
LPRINT " 13 $36,000"
LPRINT:LPRINT
LPRINT "Fourteen-Spot: Catch 6 Pays $1"
LPRINT " 7 $10"
LPRINT " 8 $40"
LPRINT " 9 $320"
LPRINT " 10 $1,000"
LPRINT " 11 $3,200"
LPRINT " 12 $16,000"
LPRINT " 13 $25,000"
LPRINT " 14 $40,000"
LPRINT :LPRINT
LPRINT "Fifteen-Spot: Catch 7 Pays $8"
LPRINT " 8 $28"
LPRINT " 9 $132"
LPRINT " 10 $300"
LPRINT " 11 $2,600"
LPRINT " 12 $8,000"
LPRINT " 13 $25,000"
LPRINT " 14 $32,000"
LPRINT " 15 $40,000"
CLS
GOTO payscreen